home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / OBJ1_2.ZIP;1 / C_UPABRO.TXT < prev    next >
Encoding:
Text File  |  1992-12-22  |  1.5 KB  |  44 lines
  1. '
  2. 'Class description:
  3. '
  4. !short:UpABrowse class structure:
  5. Class UpABrowse:
  6. ~~~~~~~~~~~~~~~~
  7. The same as the class ABrowse, but exists only as an active task.
  8. The background switching causes the finishig of the task (object).
  9.  
  10. Common use:
  11. ~~~~~~~~~~~
  12. LOCAL OBJECT Ar OF UpABrowse                   //object is created
  13.  
  14. Ar:Init()                                      //and initialised
  15.  
  16. AAdd(Ar:Arr,{"field1.1","field1.2","field1.3"}}   //ads
  17. AAdd(Ar:Arr,{"field1.2","field2.2","field2.3"}}   //3 columns
  18. AAdd(Ar:Arr,{"field1.3","field3.2","field3.3"}}   //for editation (to array Arr)
  19.  
  20. //3 columns are added to Ar object
  21. Ar:AddBlock(,"column1",,{|x|if(nil==x,Ar:Arr[Ar:N,1],Ar:Arr[Ar:N,1]:=x})
  22. Ar:AddBlock(,"column2",,{|x|if(nil==x,Ar:Arr[Ar:N,2],Ar:Arr[Ar:N,2]:=x})
  23. Ar:AddBlock(,"column3",,{|x|if(nil==x,Ar:Arr[Ar:N,3],Ar:Arr[Ar:N,3]:=x})
  24.  
  25. Ar:Process()   //editation
  26. Ar:Done()      //finishing of the task
  27.  
  28. Source code is in C_UpAbro.prg
  29.  
  30. !seealso: c_browse.ngo:Browse c_dbrows.ngo:DBrowse c_browse.ngo:Browse c_task.ngo:Task c_box.ngo:Box c_color.ngo:Color ob_class.ngo:"Class hierarchy"
  31.  
  32. !short:~~~~~~~~~~~~~~~~~~~~~~~~~
  33. !short:create class UpABrowse from ABrowse
  34. !short:  export:
  35. !short:  method New=UpABrowseNew  //o:New() --> self
  36. ^BUpABrowse:New()^N: public: return self
  37.   Object is filled with default values, predcessor variable modified:
  38.  
  39.   ^UUpABrowse:UpFlag^N: override: public: logical
  40.     Default value of herited instvar variable is redefined on new value true.
  41.  
  42. !short:  endclass
  43.  
  44.